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A REGISTER BELOW 
COCO OOOC GOIC 0000- 



0000 
0000 
COOO 
0000 
0110 
Olio 
Gill 
0111 
0111 
0111 



0000 
0000 
OOIC 
OOIC 
0010 
0010 

0010 

010 
0010 
0010 



1000 
1000 
0000 
0000 
0001 
0001 

am 
am 

0000 
0000 



0000 
0000 
00 
COOO 

1111 
nil 
nil 
nil 

0001 
OOOl 



= MASK+1 



TEMP 



= SETUP LD 
= CHECK MD 
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= MASK+1 
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LOADS INDEX 2 WITH 31 
LOAD INTER. ROUTINES ACDR. 

== STO 2 7 PLACE IRA IN WOS 
=MDX 2-1 THEN SKIPS OVER BRN 
BRNCH BACK TO LOOP 
ALLOWS INTER. LEVELS 0-15 
STARTS CARD MOVING 
WAIT FOR INTER., ALSO USED AS 
INTER. PROCESSING ROUTINE 
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C f LOClfc; 
CIL002^0 
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Sh'MSE-1 GET DEVICE STATUS WCRD 
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« 
GO 

EXIT 

ME 

COLM 
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AB 
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F I X I T 
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EVEN 

SENSE 
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n 1 V - 
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THESE INSTRUCTIONS WILL BE 
EXECUTION OF THE CIL. THIS 
THE INPUT DUFFER. 



OVERLAID CURING 
AREA IS CALLED 



DSC 

MDX 
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N'iDX 

MDX 

XIO 

LD 
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DC 

DC 
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DC 

MDX 
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STO 
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MDX 

NOP 

NOP 

MDX 

DC 
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IF BIT ZERO OF OSW IS ON, SKIP 
BRNCH TO COLM IF HAVE COL REQ 



BRANCH TO ME, HAVE ERROR 

NO ERROR, GO EXECUTE CARD JUST 

READ IN A COLUMN 

NO 
GO TO PACK- 



GET COLUMN WORD JUST READ IN 
SA'VE it in SETUP 
GO TO RESET 



GET COLUMN WORD 

SHIFT IT INTO POSITION 

ADD ODD COLM WORD TO GET CORE 

STO 2 79 

INTER IS INTER ROUTINE ADDR. 
WAIT FOR INTERRUPT 
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DATA IN CARD 2 STARTS IN 004F 



5 DECREMENT COUNTER TO 

L SW1,-1 READ IN ALL BOOTSTRAP 
CARD CARDS 

THE SECTION BELOW MOVES DATA 
FROM LOCATION /0CD6 TO /0008 

2 29+17 
L2 ONE+1 
2 J-17 
2-1 

CON+1 



CD 

CKl 
INT 

END OF INPUT BUFFER 
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COL. INT. TEST INDICATOR 
lOCC TO FEED CARD 

READER READY LGGP ■ 



RED 
ERSTP 



DATA IN CARD 3 STARTS IN 70077 
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f^DX 



* i 2 , - 

CFEED-1 

CD 
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LAST CARD FEED OUT 

RESTORE COLUMN INT. 
TEST INDICATOR 
START CARD MOVING 



INTERRUPT SERVICE 
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ENTRY 

SENSE DSV^I WITH RESET 
TEST FOR COL. INT. 
YES - SERVICE COLM. 
NO - 



SET ERROR INDICATOR 
OP COMPLETE PROCESSING 



LD 
STO 
S 
STO 



LAB + 3 
GGB + 5 
ONE 
LOOP 1 + 1 



INITIALIZE COLUMN 
INTERRUPT, ROUTINE 



RESTORE COLUMN INTERRUPT 
SERVICE ROUTINE 
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MDX 
DC 
DC 



RTEXX 


GOB 


GQB~2 


ER 


FDCHK 


CKl 


/I 204 



"N 



GET ERROR-.TEST INDICATOR 



STO 

WAIT 

MDX 



RESET ERROR INDICATOR 



READER ERROR STOP 

ER 

EOP-2 

COLUMN INTERRUPT PROCESSING 
THIS ROUTINE SERVICES COLUMN INTERRUPTS AND 
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PACKS 4 COLUi^-lNS INTO 3 WCKDS. 

IT FILLS THE BUFFER CALLED INPUT 
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SET CGL. INT. TEST ING 
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DATA IN CARD' 4 STARTS IN 009F 



INPUT 
GOB, -4 
GOB 
SENSl . 
NEW,+- 
LCGPl + 1, 1 
GCB + 5, 1 
GCB-2t4 
+ -Z 
/18G0 
WAIT3 
GOB, 16 . 
G0B~2,-12 
WAITl 



WAIT FOR NEXT INT 



STORES BUFFER TO CORE 



DC 

LD 
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LD 
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COLUMN BUFFER (FROM CARD) 

GET TYPE AND COUNT 

REMOVE COUNT 
STORE COUNT IN NEXT INST 
LOAD IR2 WITH COUNT 

GET LCADhvG ADDRESS 



SET UP DATA'STORE INSTR. 

GET DATA WORD 
STORE DATA WORD 
DECR IR2 BY 1,IF COUNTED SK 
CONTINUE LOADING FROM INPUT 



DATA IN CARD 5 STARTS IN 00C7 
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LDX 13 


INPUT+52 


XIO 
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CFEED-1 


BOSC I 


INPUT+53 


RTE 


16 



GET TYPE 
END~OF-PROGRAM 
YES - SET IR-3 
LAST CARD TEST 



TEST 

TO TV 



ADDR 



YES - FEED OUT 
GO TO EXECUTE 
CONSTANT FOR REST 
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GO 
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C 
CO A 
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1 
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4FF0026 

coo' 

SIC 
C60 



DSIXX 



LEV5 



lOCCX 



CKSUM 



OTTO 



CK3 

CDCNT 

0NE4 

FDCHK 



G 3 3 

0032 0000 
NO ERRORS 



INPUT 



DC 
DC 
MDX 
ORG 



/1703 
/OOOl 
CD 
/4 



lOCC TO SENSE DSW 



THIS SECTION WAS LOADED INTO CORE INITIALLY 
AT LOG. /00D6. IT IS MOVED TO PROPER ADDRESS 
DURING EXtCGTiON OF PROGRAM LABLED CON. 
THIS CODING PROCESSES CHECK SUMS, HANDLES 
PROGRAM STOP, ACCOMODATES ERRORS, AND , 
SKTS UP THE INTERRUPT TV. 



BSI 

MDX 

DC 

MDX 

DC 

DC 

DC 

DC 

DC 

DC 

STO 

XIO 

BSC 

WAIT 

LD 

BOSC 

LD 

BSC 

MDX 

LDX 

LD 

A 

BSC 

A 

MDX 



MDX 
S 

BSC 

WAIT 

DC 

DC 

BSC 

LD 

BSC 

MDX 

NOP 

SRA 

MDX 



EQU 
END- 



L2 



LEV5 

CD 



*f + 6 

INT 





/3FC0 

INT 

LEV5 

lOCCX 

lOCCX 

1 + 

TOCCX 

LEV5 

INPUT-M 

DAT,+- 

CDCNT, 1 

54 

CDCNT 

INPUT~1 

C 

CNE4 

-1 



SET RETURN ADDRESS 

LEVEL 5 ENTRY 
CONTINUE LEVEL 5 



lOCC TO SENSE 
CONSOLE STATUS 



SAVE ACCUMULATOR 

SENSE CONSOLE STATUS 

TEST FOR PROGRAM STOP 

YES - STOP 

RESTORE ACCUMULATOR 

RESTART NEW CARD 

TEST CARD CHECK SUM 

IF ZERO, LOAD IMMEDIATELY 

INCR CARD COUNT BY CNE 

ADD CARD COUNT PLUS 

54 WORDS, (72 COLUMNS) 

IF CARRY, / 

ADO ONE 



DATA IN CARD 6 STARTS'^IN /OOEF 



OTTC 
0NE4 
DAT,+- 


1 

CKSUM,-}-- 
CITST 
*^ + 3, Z 
CDCNT,"! 

16 
ERSTP 



51 

TEMP 



MAKE TWOS COMPLEMENT 

TEST FOR ZERO 

NO ~ CHECK SUM ERROR 



BRANCH IF NO READER ERROR 
GET COL. INT. INDICATOR 
TEST FOR ANY COL. INTS. 
NO, REDUCE CARD COUNT FOR 
RE-READ OF CARD IN FEED 
YES, CLEAR ACCOM. 



INPUT BUFFER ADDRESS 



CI La2p5 
CIL02;36 
CILO'f^I 
,CIL'Jl4^ 
CIL02fi9 
CI L 02^0 
CIL02M 
CILG2^2 
GILO 24 3 
CIL0244 
CIL024 5 
CIL02^6 
CIL0247 
CIL02iA8 
CIL02!49 
CIL02 50 
CIL02.5 1 
CILG2p2 
CIL02p3 
CILG254 
CIL02D5 
CIL02!56 
CIL02I.7 
CIL0 2!^S 
CIL02b9 
ClL02tO 
CIL02I^I 
CIL02fc2 
ClL[^i3 
C1LC^>4 
CIL02J6 5 
/lL02i6 6 
CIL0267 
CIL02t8 
CIL0269 
CILP270 
C I L 2 n 
01102^2 
CIL02^3 
CIL02!7A 
CIL02 75I 
CIL0276( 
ClL02y7( 
CrL02f8( 
CILC2r9C 
CIL02IOC 
CILO'^rirC 
CIL02l?0 
CIL0233C 
CIL02c|4C 
CIL02350 
CIL023oO 
GIL J2i;7w 
GIL. i ^' 

CI 102 lie 



